inherited FCadUsuarios: TFCadUsuarios
  Left = 423
  Top = 296
  Height = 592
  Caption = 'Cadastro de Usuarios'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnl1: TPanel
    Height = 214
    inherited pnl7: TPanel
      inherited dbgConsulta: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'USUCODIGO'
            Title.Caption = 'C'#243'digo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'USULOGIN'
            Title.Caption = 'Login'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'USUSENHA'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'USUNOME'
            Title.Caption = 'Nome'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'USUDTMAXACESSO'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'USUEMAIL'
            Title.Caption = 'E-Mail'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'USUTIPO'
            Title.Caption = 'Tipo'
            Visible = True
          end>
      end
    end
  end
  inherited pnl2: TPanel
    Top = 214
    Height = 340
    object Lb2: TLabel [5]
      Left = 16
      Top = 64
      Width = 26
      Height = 13
      Caption = 'Login'
      FocusControl = dbedt2
    end
    object Lb3: TLabel [6]
      Left = 160
      Top = 64
      Width = 31
      Height = 13
      Caption = 'Senha'
      FocusControl = dbedt3
    end
    object Lb4: TLabel [7]
      Left = 304
      Top = 64
      Width = 28
      Height = 13
      Caption = 'Nome'
      FocusControl = dbedt4
    end
    object Lb5: TLabel [8]
      Left = 662
      Top = 106
      Width = 114
      Height = 13
      Caption = 'Data Maxima de acesso'
    end
    object Lb6: TLabel [9]
      Left = 16
      Top = 105
      Width = 29
      Height = 13
      Caption = 'E-Mail'
      FocusControl = dbedt6
    end
    object lbl1: TLabel [10]
      Left = 19
      Top = 147
      Width = 144
      Height = 13
      Caption = 'Usuario liberado nas empresas'
    end
    object dbedt2: TDBEdit
      Left = 16
      Top = 80
      Width = 134
      Height = 21
      CharCase = ecUpperCase
      DataField = 'USULOGIN'
      DataSource = dsPadrao
      TabOrder = 5
      OnExit = dbedt2Exit
    end
    object dbedt3: TDBEdit
      Left = 160
      Top = 80
      Width = 134
      Height = 21
      DataField = 'USUSENHA'
      DataSource = dsPadrao
      PasswordChar = '*'
      TabOrder = 6
    end
    object dbedt4: TDBEdit
      Left = 304
      Top = 80
      Width = 481
      Height = 21
      CharCase = ecUpperCase
      DataField = 'USUNOME'
      DataSource = dsPadrao
      TabOrder = 7
    end
    object dbedt6: TDBEdit
      Left = 16
      Top = 121
      Width = 632
      Height = 21
      CharCase = ecUpperCase
      DataField = 'USUEMAIL'
      DataSource = dsPadrao
      TabOrder = 8
      OnExit = dbedt6Exit
    end
    object DBEdit2: TDBEdit
      Left = 662
      Top = 122
      Width = 121
      Height = 21
      DataField = 'DTMAXACESSO'
      DataSource = dsPadrao
      TabOrder = 9
    end
    object dbrgrpUSUTIPO: TDBRadioGroup
      Left = 791
      Top = 59
      Width = 121
      Height = 84
      Caption = 'Tipo de usu'#225'rio'
      DataField = 'USUTIPO'
      DataSource = dsPadrao
      Items.Strings = (
        'Administrador'
        'Usu'#225'rio Avan'#231'ado'
        'Usu'#225'rio Final')
      TabOrder = 10
      Values.Strings = (
        'ADMINISTRADOR'
        'AVANCADO'
        'FINAL')
    end
    object DbgUsuarioEmpresa: TDBGrid
      Left = 16
      Top = 162
      Width = 896
      Height = 173
      DataSource = dsUsuarioEmpresa
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 11
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DbgUsuarioEmpresaDblClick
      OnKeyDown = DbgUsuarioEmpresaKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'USUCODIGO'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'EMPCODIGO'
          Title.Caption = 'C'#243'digo Empresa'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EMPRAZAOSOCIAL'
          Title.Caption = 'Raz'#227'o Social'
          Visible = True
        end>
    end
  end
  inherited qPadrao: TQuery
    AfterScroll = qPadraoAfterScroll
    SQL.Strings = (
      'SELECT * FROM USUARIOS')
    Left = 23
    object intgrfldPadraoUSUCODIGO: TIntegerField
      FieldName = 'USUCODIGO'
      Origin = '"IMOB.FDB".USUARIOS.USUCODIGO'
    end
    object qPadraoUSULOGIN: TStringField
      FieldName = 'USULOGIN'
      Origin = '"IMOB.FDB".USUARIOS.USULOGIN'
      Required = True
      FixedChar = True
      Size = 10
    end
    object qPadraoUSUSENHA: TStringField
      FieldName = 'USUSENHA'
      Origin = '"IMOB.FDB".USUARIOS.USUSENHA'
      Required = True
      FixedChar = True
      Size = 10
    end
    object qPadraoUSUNOME: TStringField
      FieldName = 'USUNOME'
      Origin = '"IMOB.FDB".USUARIOS.USUNOME'
      Required = True
      FixedChar = True
      Size = 70
    end
    object qPadraoUSUEMAIL: TStringField
      FieldName = 'USUEMAIL'
      Origin = '"IMOB.FDB".USUARIOS.USUEMAIL'
      FixedChar = True
      Size = 30
    end
    object qPadraoUSUTIPO: TStringField
      FieldName = 'USUTIPO'
      Origin = '"IMOB.FDB".USUARIOS.USUTIPO'
      Required = True
      FixedChar = True
      Size = 18
    end
    object qPadraoDTMAXACESSO: TDateTimeField
      FieldName = 'DTMAXACESSO'
      Origin = '"IMOB.FDB".USUARIOS.DTMAXACESSO'
      EditMask = '!00/00/0000;1;_'
    end
  end
  object dsUsuarioEmpresa: TDataSource
    DataSet = qUsuarioEmpresa
    Left = 209
    Top = 442
  end
  object qUsuarioEmpresa: TQuery
    DatabaseName = 'BDSistema.FDB'
    SQL.Strings = (
      'SELECT UE.*, E.EMPRAZAOSOCIAL '
      'FROM USUARIOS_EMPRESAS UE, EMPRESA E '
      'WHERE 1=-1')
    Left = 239
    Top = 443
    object qUsuarioEmpresaUSUCODIGO: TIntegerField
      FieldName = 'USUCODIGO'
      Origin = '"BDSISTEMA.FDB".USUARIOS_EMPRESAS.USUCODIGO'
    end
    object qUsuarioEmpresaEMPCODIGO: TIntegerField
      FieldName = 'EMPCODIGO'
      Origin = '"BDSISTEMA.FDB".USUARIOS_EMPRESAS.EMPCODIGO'
    end
    object qUsuarioEmpresaEMPRAZAOSOCIAL: TStringField
      FieldName = 'EMPRAZAOSOCIAL'
      Origin = '"BDSISTEMA.FDB".EMPRESA.EMPRAZAOSOCIAL'
      FixedChar = True
      Size = 70
    end
  end
end
